**********************************
* BASIC-RUN BEI RESET
*
* PETER FINZEL 1986
**********************************
*
* lOCB-Konstante
*
CIOV	EQU $E456
ICCOM	EQU $342
ICBAL	EQU $344
ICBAH	EQU $345
ICBLL	EQU $348
ICBLH	EQU $349
ICAX1	EQU $34A
CPBIN	EQU 11
*
* Sonstige Register
*
ROWCRS	EQU $54		Cursor-Zeile
COLCRS	EQU $55		Cursor-Spalte
SDMCTL	EQU 559		DMA-Register (S)
*
* Programm in PAGE 6
*
	ORG $600
*
	JSR $FFFF	Platz f. DOS-Init
	LDX #0		'RUN' am oberen
	STX SDMCTL	Bild aus
	LDA #CPBIN	Rand des Bild-
	STA ICCOM,X	schirmes aus-
	LDA #RUN:L	geben.
	STA ICBAL,X	Adresse des
	LDA #RUN:H	Strings in IOCB
	STA ICBAH,X
	LDA #RUNEND-RUN	Laenge
	STA ICBLL,X
	LDA #0
	STA ICBLH,X
	JSR CIOV	CIO aufrufen
	LDA #0		Cursor nach
	STA ROWCRS	links oben
	STA COLCRS	stellen
	STA COLCRS+1
	LDA #$0D	Forced-Read
	STA ICAX1	Eingabe-Modus
	RTS
*
RUN	DFB $7D,$1D,$1D	Clear Screen
	ASC "RUN" 	Cursor 2x unten
RUNEND	EQU *